Cobra Utilities for Doom & Doom II/Cobra Utilities For Doom & Doom II - Disc 2.iso/files/text/dm_bat/dm.bat

DOS Batch File | 1994-03-27 | 6.3 KB | 429 lines

@echo off

if %1!%==! goto norm
if %1%==/auto goto auto
if %1%==/? goto help
if %1%==? goto help
goto norm


:help
echo.
echo.
echo Set-Doom For Doom 1.2, Version 1.1
echo.
echo Usage: [DM]
echo.
echo.
goto bye1

:auto
dm < f:\doom12\auto.sd
goto bye



:norm
mode con: cols=80 lines=50

:start
mode con: cols=80 lines=50

set doomid=
set doomnum=
set doomep=
set doomap=
set doomskill=
set doomspawn=
set doommat=
set doommun=
set tm=10
cls

rem Fuck That Other LAME Doom Menu Program!!!  It Does'nt Work!!!

echo.
echo.
echo Set-Doom Version 1.1
echo.
echo Enter Your Choices Listed Below, Answers In Brackets ( [] ) Are Default.
echo You Have %tm% Seconds Per Question.  Use 'x' To Abort From Any Question.

echo.
choice /c:0123456789x /n /t0,%tm% Enter The Agreed Upon NetWork Game ID Number [0]:
rem set doomid=999

if errorlevel 11 goto newgame
if errorlevel 10 goto id9
if errorlevel 9 goto id8
if errorlevel 8 goto id7
if errorlevel 7 goto id6
if errorlevel 6 goto id5
if errorlevel 5 goto id4
if errorlevel 4 goto id3
if errorlevel 3 goto id2
if errorlevel 2 goto id1
if errorlevel 1 goto id0

:id0
set doomid=0
goto players

:id1
set doomid=1
goto players

:id2
set doomid=2
goto players

:id3
set doomid=3
goto players

:id4
set doomid=4
goto players

:id5
set doomid=5
goto players

:id6
set doomid=6
goto players

:id7
set doomid=7
goto players

:id8
set doomid=8
goto players

:id9
set doomid=9
goto players

:id10
set doomid=10
goto players


:players
echo.
choice /c:234x1 /n /t4,10 How Many People Playing (1-4) [4]:
if errorlevel 5 goto n1
if errorlevel 4 goto newgame
if errorlevel 3 goto n4
if errorlevel 2 goto n3
if errorlevel 1 goto n2

:n1
set doomnum=1
goto episode

:n2
set doomnum=2
goto episode

:n3
set doomnum=3
goto episode

:n4
set doomnum=4
goto episode


:episode
echo.
choice /c:123x /n /t:1,10 Which Episode To Start On (1-3) [1]:
if errorlevel 4 goto newgame
if errorlevel 3 goto e3
if errorlevel 2 goto e2
if errorlevel 1 goto e1

:e1
set doomep=1
goto level

:e2
set doomep=2
goto level

:e3
set doomep=3
goto level


:level
echo.
choice /c:123456789x /n /t:1,10 Which Map To Start On (1-9) [1]:
if errorlevel 10 goto newgame
if errorlevel 9 goto l9
if errorlevel 8 goto l8
if errorlevel 7 goto l7
if errorlevel 6 goto l6
if errorlevel 5 goto l5
if errorlevel 4 goto l4
if errorlevel 3 goto l3
if errorlevel 2 goto l2
if errorlevel 1 goto l1

:l1
set doomap=1
goto skill

:l2
set doomap=2
goto skill

:l3
set doomap=3
goto skill

:l4
set doomap=4
goto skill

:l5
set doomap=5
goto skill

:l6
set doomap=6
goto skill

:l7
set doomap=7
goto skill

:l8
set doomap=8
goto skill

:l9
set doomap=9
goto skill


:skill
echo.
choice /c:12345x0 /n /t:3,10 Which Skill Level To Start On (1-5) [3]:
if errorlevel 7 goto s0
if errorlevel 6 goto newgame
if errorlevel 5 goto s5
if errorlevel 4 goto s4
if errorlevel 3 goto s3
if errorlevel 2 goto s2
if errorlevel 1 goto s1

:s0
set doomskill=0
goto spawn


:s1
set doomskill=1
goto spawn

:s2
set doomskill=2
goto spawn

:s3
set doomskill=3
goto spawn

:s4
set doomskill=4
goto spawn

:s5
set doomskill=5
goto spawn





:spawn
echo.
choice /c:ynx /n /t:n,10 Re-Spawn Enemies (y\n) [N]:
if errorlevel 3 goto newgame
if errorlevel 2 goto rs2
if errorlevel 1 goto rs1

:rs1
set doomspawn=Yes
goto attack

:rs2
set doomspawn=No
goto attack










:attack
if %doomnum%==1 set doommat=Ally
if %doomnum%==1 goto monsters
echo.
choice /c:fex /n /t:e,10 Play Friends Or Enemies (F\E) [E]:
if errorlevel 3 goto newgame
if errorlevel 2 goto ff2
if errorlevel 1 goto ff1

:ff1
set doommat=Ally
goto monsters

:ff2
set doommat=Foe
goto monsters


:monsters
echo.
choice /c:ynx /n /t:n,10 Want To Have Monsters In Game (y\n) [N]:
if errorlevel 3 goto newgame
if errorlevel 2 goto m2
if errorlevel 1 goto m1

:m1
set doommun=Yes
goto end

:m2
set doommun=No
goto end


:end
echo.
echo.
choice /c:ynx /n /t:y,10 Satisfied With Your Choices (y\n) [Y]:
if errorlevel 3 goto newgame
if errorlevel 2 goto start

cls
echo.
echo.
echo Running DOOM 1.2 With The Following Options:
echo.
echo.
echo Doom Id: %doomid%
echo Players: %doomnum%
echo Episode: %doomep%
echo Level: %doomap%
echo Skill Level: %doomskill%
echo Re-Spawn: %doomspawn%
echo Attack Mode: %doommat%
echo Monsters: %doommun%
echo.
echo.


rem echo on

if %doommat%==Ally goto ally
if %doommat%==Foe goto foe


:ally
if %doomnum%==1 goto p1
if %doomnum%==1 goto p1
if %doommun%==Yes goto fm
if %doommun%==No goto fnm

:fnm
ipxsetup -devparm -skill %doomskill% -wart %doomep% %doomap% -port %doomid% -nodes %doomnum% -nomonsters
goto newgame

:fm
if %doomspawn%==Yes goto fmrs
ipxsetup -devparm -skill %doomskill% -wart %doomep% %doomap% -port %doomid% -nodes %doomnum%
goto newgame
:fmrs
ipxsetup -devparm -respawn -skill %doomskill% -wart %doomep% %doomap% -port %doomid% -nodes %doomnum%
goto newgame

:p1
if %doommun%==Yes goto 1m
if %doommun%==No goto 1nm

:1nm
doom -devparm -skill %doomskill% -wart %doomep% %doomap% -nomonsters
goto newgame

:1m

if %doomspawn%==Yes goto 1mrs
doom -devparm -skill %doomskill% -wart %doomep% %doomap%
goto newgame
:1mrs
doom -devparm -respawn -skill %doomskill% -wart %doomep% %doomap%
goto newgame






:foe
if %doommun%==Yes goto dm
if %doommun%==No goto dnm

:dnm
ipxsetup -devparm -skill %doomskill% -wart %doomep% %doomap% -port %doomid% -nodes %doomnum% -deathmatch -nomonsters
goto newgame

:dm

if %doomspawn%==Yes goto dmrs
ipxsetup -devparm -skill %doomskill% -wart %doomep% %doomap% -port %doomid% -nodes %doomnum% -deathmatch
goto newgame
:dmrs
ipxsetup -devparm -respawn -skill %doomskill% -wart %doomep% %doomap% -port %doomid% -nodes %doomnum% -deathmatch

:newgame


set doomid=
set doomnum=
set doomep=
set doomskill=
set doomspawn=
set doomap=
set doommat=
set doommun=
set tm=

echo.
echo.
choice /c:ynx /n /t:y,99 Play Another Game (y\n) [Y]:
if errorlevel 3 goto newgame
if errorlevel 2 goto bye
if errorlevel 1 goto start


:bye
mode con: cols=80 lines=50
echo.
echo.
echo Thank You For Using 'Set-Doom'!
echo Version 1.1 By Ken Lavender
:bye1
echo.
echo.